home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / minix / libsrc~1.z / libsrc~1 / alloca.s < prev    next >
Encoding:
Text File  |  1989-12-28  |  830 b   |  39 lines
  1. #APP
  2.  
  3. #  alloca(size) allocate junk in stack frame
  4. #
  5. #  void *alloca(size_t size)
  6. #    this version for minix checks brksize
  7. # 
  8. #    ++jrb    bammi@dsrgsun.ces.cwru.edu
  9. #
  10.     .text
  11.     .even
  12.     .globl _brksize
  13.     .globl _alloca
  14. slush = 32            | desired slush below brksize
  15. _alloca:
  16.     movel    sp@+,a0        | get return addr
  17.     movel    sp@+,d0        | get size 
  18.  
  19.     addql    #1,d0        | ensure address even
  20.     andb    #0xfe,d0    | lop off extra bits
  21.  
  22.     movel    sp,a1        | save old sp in case we fail
  23.     subl    d0,sp        | increase stack frame size by that much
  24.     movel    sp,d0        | set up to return it
  25.  
  26.     moveq    #slush,d1    | check against brk
  27.      addl    _brksize,d1
  28.     cmpl    d1,d0
  29.     bles    outofstack    | not enough stack
  30.  
  31. retn:    lea    sp@(-4),sp    | new top of stack (caller pops this)
  32.  
  33.     jmp    a0@        | return by jmping via saved addr
  34.  
  35. outofstack:
  36.     movel    a1,sp        | restore saved sp
  37.     moveq    #0,d0        | NULL return val
  38.     bras    retn
  39.